home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 003.dms / 003.adf / EXAMPLE_PROGRAMS / example4.AMOS / example4.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  993 b   |  36 lines
  1. 'EXAMPLE PROGRAM FOUR  
  2. '
  3. 'A program to print any times table from 1 to 99 
  4. '
  5. '
  6. Rem Remove the mouse pointer,set text background 
  7. Rem to blue and clear the screen to blue, see EXAMPLE1 and EXAMPLE2  
  8. Hide : Paper 0 : Cls 0
  9. '
  10. '
  11. '
  12. Rem ask the user what table they want displayed and hold that number in TT     
  13. Line Input "TYPE IN A NUMBER 1-99 ";TT
  14. '
  15. '
  16. Rem clear the screen of the previous input text and set curs off 
  17. Cls 0 : Curs Off 
  18. '
  19. '
  20. Rem set the for next loop starting at 1 and ending at 12 the counter stored in A 
  21. For A=1 To 12
  22. '
  23. '
  24. Rem print the calculation A*TT to the screen 
  25. Print A*TT
  26. '
  27. '
  28. Rem Amos now INCrements A automatically and checks to see if A is less than 12 
  29. Rem which is the maximum we have asked it to go to , change it if you like.
  30. Rem If A is less than 12 Amos will jump back to do the next calculation. 
  31. Next A
  32. '
  33. '
  34. Rem If A was more than or equal to 12 it will arrive here, where Amos waits
  35. Rem for a key press from you then jumps back to the editor.
  36. Wait Key : Edit